(define (integer-series s)
  (stream-map * (stream-map / ones integers) s))

(define sine-series (cons-stream 0 (integer-series cosine-series)))

(define cosine-series (cons-stream 1 (integer-series (scale-stream sine-series -1))))
